home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / System / ReqToolsLib / Source / reqtools / reqtools.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-02  |  1.3 KB  |  93 lines
  1.  
  2.     ********************
  3.     * ReqTools library *
  4.     ********************
  5.  
  6.     SECTION "reqtools",CODE
  7.  
  8.     INCLUDE    "exec/types.i"
  9.     INCLUDE    "exec/nodes.i"
  10.     INCLUDE    "exec/resident.i"
  11.     INCLUDE    "exec/libraries.i"
  12.  
  13.     INCLUDE "reqtools_rev.i"
  14.  
  15.     XREF Init
  16.  
  17.     XDEF DataTable
  18.  
  19. myINITBYTE    MACRO    * &offset,&value
  20.     DC.B    $e0
  21.     DC.B    0
  22.     DC.W    \1
  23.     DC.B    \2
  24.     DC.B    0
  25.     ENDM
  26.  
  27. myINITWORD    MACRO    * &offset,&value
  28.     DC.B    $d0
  29.     DC.B    0
  30.     DC.W    \1
  31.     DC.W    \2
  32.     ENDM
  33.  
  34. myINITLONG    MACRO    * &offset,&value
  35.     DC.B    $c0
  36.     DC.B    0
  37.     DC.W    \1
  38.     DC.L    \2
  39.     ENDM
  40.       
  41. myINITSTRUCT  MACRO   * &size,&offset,&value,&count
  42.     DS.W    0
  43.     IFC        '\4',''
  44. COUNT\@        SET        0
  45.     ENDC
  46.     IFNC    '\4',''
  47. COUNT\@        SET        \4
  48.     ENDC
  49. CMD\@        SET        (((\1)<<4)!COUNT\@)
  50.     IFLE    (\2)-255
  51.     DC.B    (CMD\@)!$80
  52.     DC.B    \2
  53.     MEXIT
  54.     ENDC
  55.     DC.B    CMD\@!$0C0
  56.     DC.B    (((\2)>>16)&$0FF)
  57.     DC.W    ((\2)&$0FFFF)
  58.     ENDM
  59.  
  60. Start:
  61.     moveq #-1,d0
  62.     rts
  63.  
  64. reqtoolsname:    dc.b "reqtools.library",0
  65. idstring:    VSTRING
  66.     cnop 0,2
  67.  
  68.     ; Romtag structure
  69. Romtag:
  70.     dc.w RTC_MATCHWORD
  71.     dc.l Romtag
  72.     dc.l EndCode
  73.     dc.b RTF_AUTOINIT
  74.     dc.b VERSION
  75.     dc.b NT_LIBRARY
  76.     dc.b 0
  77.     dc.l reqtoolsname
  78.     dc.l idstring
  79.     dc.l Init
  80.  
  81. DataTable:
  82.     myINITBYTE    LN_TYPE,NT_LIBRARY
  83.     myINITLONG    LN_NAME,reqtoolsname
  84.     myINITBYTE    LIB_FLAGS,LIBF_SUMUSED+LIBF_CHANGED
  85.     myINITWORD    LIB_VERSION,VERSION
  86.     myINITWORD    LIB_REVISION,REVISION
  87.     myINITLONG    LIB_IDSTRING,idstring
  88.     dc.l 0
  89.  
  90. EndCode:
  91.  
  92.     END
  93.